home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / amok_lha / amok31.lha / IntuiPointer / IntuiPointer.def next >
Text File  |  1993-08-15  |  1KB  |  28 lines
  1. (*---------------------------------------------------------------------------
  2.     :Program.     IntuiPointer.def
  3.     :Contents.      Prozeduren zum Setzen des Mauszeigers auf 'Busy' (ZZ)
  4.     :Author.      Bernd Preusing
  5.     :Address.      Gerhardstr. 16  D-2200 Elmshorn
  6.     :Phone.      04121/22486
  7.     :Copyright.      Public Domain
  8.     :Language.      Modula-2
  9.     :Translator.  M2Amiga V3.2e
  10.     :History.      V1.0 08-Oct-89 Bernd Preusing
  11.     :Bugs.      none
  12.     :Remark.      Please, create beautiful pointers for me!
  13. ---------------------------------------------------------------------------*)
  14. DEFINITION MODULE IntuiPointer;
  15.  
  16. IMPORT Intuition; (* You like Oberon? *)
  17.  
  18. PROCEDURE Normal(Win:Intuition.WindowPtr);
  19. (* :Input.    Win: Das Fenster, auf das sich der Zeiger bezieht.
  20.    :Semantic.    Löscht den Mauszeiger, d.h. er wird wieder normal.
  21. *)
  22. PROCEDURE Busy(Win:Intuition.WindowPtr);
  23. (* :Input.    Win: Das Fenster, auf das sich der Zeiger bezieht.
  24.    :Semantic.    Setzt den Mauszeiger auf 'ZZ' (Busy)
  25. *)
  26.  
  27. END IntuiPointer.def
  28.